<!-- #include file="Setup.asp" -->

<%
top
if CookieUserName=empty then error("<li>您还未<a href=Login.asp>登录</a>论坛")
sql="select * from [BBSXP_Users] where ID="&CookieUserID&""
Set Rs=Conn.Execute(sql)

%>

<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<tr class=a3>
<td>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 控制面板</td>hs
</tr>
</table>
<br>

<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
	<TR id=TableTitleLink class=a1>
		<Td align="center"><b><a href="UserCp.asp">控制面板</a></b></td>
		<TD align="center"><b><a href="EditProfile.asp">资料修改</a></b></td>
		<TD align="center"><b><a href="EditProfile.asp?menu=pass">密码修改</a></b></td>
		<TD align="center"><b><a href="MySettings.asp">个性设置</a></b></td>
		<TD align="center"><b><a href="MyUpFiles.asp">上传管理</a></b></td>
		<TD align="center"><b><a href="MyFavorites.asp">管理书签</a></b></td>
		<TD align="center"><b><a href="MyMessage.asp">短信服务</a></b></td>
		<TD align="center"><b><a href="MyFriend.asp">好友列表</a></b></td>
	</TR>
</TABLE>
<br>

<table cellspacing=0 cellpadding=0 border=0 width=100%>

  <TR>
    <TD vAlign=top width="28%">
      <TABLE height="100%" width="95%" cellSpacing=1 cellPadding=5 border=0 class=a2>
        
        <TR>
          <TD class=a1 align="center" colspan="2">
          <b>用户头像</TH></b></TR>
        <TR align=center>
          <TD colspan="2" class=a4><img src="<%=Rs("Userface")%>" onload='javascript:if(this.width>200)this.width=200'></TD></TR>
        <TR>
          <TD class=a1 align="center" colspan="2">
          <b>基本资料</TH></b></TR>
<TR class=a3><TD>
<%
%>用户角色： <%=ShowRole(RS("UserRoleID"))%><br>
公　　会： <%=Rs("Consortia")%><br>
头　　衔： <%=Rs("UserHonor")%><br>
配　　偶： <%=Rs("Consort")%><br>
发表原贴： <%=Rs("PostTopic")%><br>
发表回贴： <%=Rs("Postrevert")%><br>
精华帖数： <%=Rs("goodTopic")%><br>
被删帖子： <%=Rs("DelTopic")%><br>
社区金币： <%=Rs("UserMoney")%><br>
用户经验： <%=Rs("experience")%><br>
登录次数： <%=Rs("UserDegree")%><br>
注册时间： <%=Rs("UserRegTime")%><br>
上次登录： <%=Rs("UserLandTime")%>
<%
Rs.close
%>   
</TD></TR>

</TABLE></TD>
    <TD vAlign=top>
      <TABLE WIDTH=100% cellSpacing=1 cellPadding=5 align=center border=0 class=a2>

        <TR>
          <TD align=Left class=a1>
          <b>-=&gt; 论坛短讯息</b></TD></TR>
        <TR class=a3>
          <TD align="center"><a href="MyMessage.asp"><FONT 
            color=ff0000>收件箱</FONT></a><font color="FF0000">&nbsp; </font>共 <B>[<%=Conn.execute("Select count(id)from [BBSXP_Messages] where incept='"&CookieUserName&"'")(0)%>]</B> 条讯息，<a href="MyMessage.asp?send=1"><FONT 
            color=ff0000>已发送讯息</FONT></a><B> [<%=Conn.execute("Select count(id)from [BBSXP_Messages] where UserName='"&CookieUserName&"'")(0)%>]</B> 条。<BR></TD></TR></TABLE><BR>
      <TABLE  WIDTH=100% cellSpacing=1 cellPadding=5 align=center border=0 class=a2>
        
        <TR>
          <TD align=Left colSpan=5 class=a1>
          <b>-=&gt; 最新收到的短讯</TH></b></TR>
        <TR class=a3>
          <TD vAlign=center align=center width=30>　</TD>
          <TD vAlign=center align=center width=100><B>发件人</B></TD>
          <TD vAlign=center align=center width=300><B>内容</B></TD>
          <TD align=center width=160><B>日期</B></TD>
          <TD vAlign=center align=center width=50><B>大小</B></TD>
         </TR>
<%

sql="select top 5 * from [BBSXP_Messages] where incept='"&CookieUserName&"' order by id Desc"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF 
size=Len(""&Rs("content")&"")
if size>20 then
content=Left(""&Rs("content")&"",16)&"..."
else
content=Rs("content")
end if
%>
   
        <TR class=a3>
          <TD vAlign=center align=center><IMG src="images/f_norm.gif"></TD>
          <TD vAlign=center align=center><A href="Profile.asp?UserName=<%=Rs("UserName")%>" ><%=Rs("UserName")%></A></TD>
          <TD><A href=MyMessage.asp><%=content%></A></TD>
          <TD align="center"><%=Rs("DateCreated")%></FONT></TD>
          <TD align="center"><%=size%></TD>
        </TR>
          
<%          
Rs.MoveNext
loop
Rs.Close      
%>          
          
          
          
          </TD></TR></TABLE><BR>
      <TABLE WIDTH=100% cellSpacing=1 cellPadding=5 align=center border=0 class=a2>

        <TR>
          <TD align=Left class=a1>
          <b>-=&gt; 
  最近发表的主题</TH></b></TR>
    <%
sql="select top 5 * from [BBSXP_Threads] where IsDel=0 and UserName='"&CookieUserName&"' order by id Desc"
Set Rs=Conn.Execute(sql)

Do While Not Rs.EOF 

%>

  <tr class=a3>
    <td align="Left">&nbsp;□　<a href=ShowPost.asp?ThreadID=<%=Rs("id")%>><%=Rs("Topic")%></a> -- <%=Rs("lasttime")%></td>
  </tr>


<%


Rs.MoveNext
loop
Rs.Close

  %>
</table></TD></TR></TABLE>
  
<%
htmlend
%>